inherited fmMarket_AddEditWWW: TfmMarket_AddEditWWW
  Left = 270
  Top = 182
  Width = 491
  Height = 458
  Caption = #1056#1077#1089#1091#1088#1089
  Constraints.MinHeight = 458
  Constraints.MinWidth = 491
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object lbl1: TLabel [0]
    Left = 16
    Top = 52
    Width = 123
    Height = 13
    Caption = 'WWW '#1072#1076#1088#1077#1089' '#1088#1077#1089#1091#1088#1089#1072' (*)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object lbl2: TLabel [1]
    Left = 16
    Top = 111
    Width = 78
    Height = 13
    Caption = #1058#1080#1087' '#1088#1077#1089#1091#1088#1089#1072' (*)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object lbl3: TLabel [2]
    Left = 16
    Top = 239
    Width = 67
    Height = 13
    Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object lbl4: TLabel [3]
    Left = 16
    Top = 183
    Width = 30
    Height = 13
    Caption = #1051#1086#1075#1080#1085
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object lbl5: TLabel [4]
    Left = 160
    Top = 183
    Width = 37
    Height = 13
    Caption = #1055#1072#1088#1086#1083#1100
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object lbl6: TLabel [5]
    Left = 16
    Top = 166
    Width = 208
    Height = 13
    Caption = '(*) - '#1086#1073#1103#1079#1072#1090#1077#1083#1100#1085#1099#1077' '#1076#1083#1103' '#1079#1072#1087#1086#1083#1085#1077#1085#1080#1103' '#1087#1086#1083#1103
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  inherited sbBottom: TStatusBar
    Top = 397
    Width = 483
  end
  inherited Panel1: TPanel
    Width = 483
    inherited BitBtn1: TBitBtn
      Left = 313
    end
    inherited BitBtn2: TBitBtn
      Left = 401
    end
  end
  object cxDBHyperLinkEdit1: TcxDBHyperLinkEdit [8]
    Left = 16
    Top = 72
    DataBinding.DataField = 'MSNAME'
    DataBinding.DataSource = dlgDS
    ParentFont = False
    Properties.UsePrefix = upNever
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -15
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
    TabOrder = 2
    OnExit = cxDBHyperLinkEdit1Exit
    Width = 305
  end
  object cxDBCheckBox1: TcxDBCheckBox [9]
    Left = 336
    Top = 72
    Caption = #1055#1088#1086#1092#1080#1083#1100#1085#1099#1081' ?'
    DataBinding.DataField = 'MSISPROFIL'
    DataBinding.DataSource = dlgDS
    ParentFont = False
    Properties.Alignment = taRightJustify
    Properties.NullStyle = nssUnchecked
    Properties.ValueChecked = 1
    Properties.ValueUnchecked = 0
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -15
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
    TabOrder = 3
    Width = 137
  end
  object lcbType: TcxDBLookupComboBox [10]
    Left = 14
    Top = 134
    DataBinding.DataField = 'MSTYPESDID'
    DataBinding.DataSource = dlgDS
    ParentFont = False
    Properties.DropDownListStyle = lsEditList
    Properties.DropDownRows = 15
    Properties.KeyFieldNames = 'SDID'
    Properties.ListColumns = <
      item
        FieldName = 'SDNAME'
      end>
    Properties.ListOptions.ShowHeader = False
    Properties.ListSource = dsSD
    Properties.MaxLength = 0
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clBlack
    Style.Font.Height = -15
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.Shadow = False
    Style.IsFontAssigned = True
    TabOrder = 4
    Width = 307
  end
  object cxDBMemo1: TcxDBMemo [11]
    Left = 16
    Top = 264
    DataBinding.DataField = 'MSNOTE'
    DataBinding.DataSource = dlgDS
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -15
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
    TabOrder = 5
    Height = 129
    Width = 457
  end
  object eLogin: TcxDBTextEdit [12]
    Left = 16
    Top = 203
    DataBinding.DataField = 'MSUSER'
    DataBinding.DataSource = dlgDS
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -15
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
    TabOrder = 6
    Width = 121
  end
  object ePassw: TcxDBTextEdit [13]
    Left = 160
    Top = 203
    DataBinding.DataField = 'MSPASSWORD'
    DataBinding.DataSource = dlgDS
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -15
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
    TabOrder = 7
    Width = 121
  end
  object dsSD: TDataSource
    DataSet = qSD
    Left = 339
    Top = 126
  end
  object qSD: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT t1.*, SD1.SDISDELETE'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID, o)'
      
        '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID, CAST('#39#39' AS VARCHAR' +
        '(2048)) AS o FROM SYS_DIC SD'
      '      WHERE sd.SDPARID  = 29'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID, '#39' '#39' || o'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  o || SDNAME AS SDNAME, SDID, SDPARID FROM tree t'
      ') AS t1'
      'INNER JOIN SYS_DIC sd1 ON sd1.SDID = t1.sdid'
      'order by 1'
      '')
    GeneratorField.Field = 'SDID'
    Left = 376
    Top = 128
    object intgrfldSDSDID: TIntegerField
      FieldName = 'SDID'
      ProviderFlags = []
    end
    object intgrfldSDSDPARID: TIntegerField
      FieldName = 'SDPARID'
      ProviderFlags = []
    end
    object qSDSDNAME: TIBStringField
      DisplayLabel = #1069#1083#1077#1084#1077#1085#1090
      FieldName = 'SDNAME'
      ProviderFlags = []
      Size = 2304
    end
    object intgrfldSDSDISDELETE: TIntegerField
      DisplayLabel = #1059#1076#1072#1083#1080#1090#1100'?'
      FieldName = 'SDISDELETE'
      Origin = '"SYS_DIC"."SDISDELETE"'
    end
  end
  object qCheck: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT MS.MSID'
      'FROM MARKET_SITE MS'
      'WHERE MS.MSISDELETE IS NULL'
      
        'AND UPPER(MS.MSNAME) LIKE '#39'%'#39'|| UPPER(CAST(:msname AS VARCHAR(25' +
        '5)))|| '#39'%'#39
      'UNION'
      'SELECT MSU.MSUID'
      'FROM MS_URL MSU'
      'WHERE MSU.MSUISDELETE IS NULL'
      
        'AND UPPER(MSU.MSUURL) LIKE '#39'%'#39'|| UPPER(CAST(:msname AS VARCHAR(2' +
        '55)))|| '#39'%'#39)
    Left = 342
    Top = 168
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'msname'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'msname'
        ParamType = ptUnknown
      end>
    object intgrfldCheckMSID: TIntegerField
      FieldName = 'MSID'
      Origin = '"MARKET_SITE"."MSID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
  end
end
